# dados.R - os dados em bruto do artigo estudado

# Exemplo de uso:
#
# source('dados.R')
# Anos(5)
# Danos(5)
# PlotDanos(4)

.danos <- c(71.9, 0.2, 4.2, 1.5, 2.0, 1.2, 1.1, 1.1, 0.4, 0.7, 0.3, 1.3, 57.1, 2.5, 6.3, 1.7, 1.2, 13.8,
0.4, 3.1, 3.6, 0.7, 139.5, 31.8, 0.1, 0.3, 5.7, 9.8, 3.8, 1.4, 0.5, 0.1, 0.5, 0.4, 3.1, 5.6, 0.1, 0.1,
1.3, 0.05, 37.3, 0.2, 1.2, 1.8, 0.4, 0.1, 2.6, 3.3, 0.4, 12.1, 35.6, 1.7, 10.1, 1.0, 3.1, 0.1, 14.8,
0.05, 0.3, 2.0, 0.05, 3.6, 0.6, 13.5, 0.6, 1.0, 3.7, 0.3, 0.2, 0.1, 0.05, 15.1, 1.7, 23.2, 3.8, 17.8,
6.0, 0.7, 4.1, 0.1, 0.6, 0.05, 0.3, 0.5, 0.1, 0.3, 31.9, 0.05, 0.1, 13.5, 0.2, 0.1, 0.05, 0.2, 0.05,
4.7, 6.6, 2.6, 0.6, 23.0, 0.6, 0.3, 0.1, 4.0, 0.05, 0.05, 0.5, 24.0, 5.7, 1.3, 0.3, 0.3, 0.2, 18.4, 0.05,
0.2, 1.1, 0.1, 2.8, 0.5, 0.1, 0.2, 0.1, 1.6, 2.2, 0.05, 11.5, 1.7, 0.2, 0.05, 0.05, 7.2, 0.3, 0.05,
0.1, 0.1, 3.8, 2.4, 4.2, 1.1, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.2, 0.05, 1.0, 0.2, 17.5, 0.2,
0.1, 3.1, 54.3, 0.05, 0.1, 1.0, 0.2, 0.8, 0.05, 0.05, 1.4, 0.05, 6.3, 0.5, 6.2, 0.2, 0.2, 1.2, 0.1, 0.1,
0.8, 3.6, 0.1, 0.1, 0.2, 6.8, 0.05, 1.2, 0.05, 0.05, 6.4, 0.05, 0.3, 0.05, 0.05, 0.05, 0.4, 0.05, 1.1,
0.05, 0.2, 4.0, 0.05, 16.3, 9.6, 0.1, 15.5, 7.5, 0.3, 2.2, 81.0, 1.6, 10.0, 20.6)

.anos <- c(1900, 1901, 1903, 1903, 1906, 1906, 1909, 1909, 1909, 1910, 1911, 1913, 1915, 1915, 1916, 1916,
1918, 1919, 1920, 1921, 1926, 1926, 1926, 1928, 1929, 1929, 1932, 1933, 1933, 1933, 1933, 1934, 1934,
1934, 1935, 1935, 1936, 1936, 1936, 1938, 1938, 1940, 1940, 1941, 1941, 1942, 1942, 1943, 1944, 1944,
1944, 1945, 1945, 1946, 1946, 1947, 1947, 1947, 1947, 1947, 1948, 1948, 1948, 1949, 1949, 1950, 1950,
1951, 1952, 1953, 1953, 1954, 1954, 1954, 1955, 1955, 1955, 1956, 1957, 1957, 1958, 1959, 1959, 1959,
1959, 1960, 1960, 1960, 1960, 1961, 1961, 1962, 1962, 1963, 1964, 1964, 1964, 1964, 1964, 1965, 1965,
1966, 1966, 1967, 1968, 1968, 1968, 1969, 1970, 1971, 1971, 1971, 1971, 1972, 1972, 1973, 1974, 1974,
1975, 1976, 1977, 1978, 1979, 1979, 1979, 1979, 1979, 1980, 1981, 1982, 1982, 1983, 1984, 1984, 1985,
1985, 1985, 1985, 1985, 1985, 1986, 1986, 1987, 1987, 1988, 1988, 1988, 1988, 1988, 1989, 1989, 1989,
1989, 1990, 1991, 1992, 1993, 1993, 1994, 1994, 1994, 1995, 1995, 1995, 1995, 1995, 1996, 1996, 1996,
1997, 1998, 1998, 1998, 1998, 1998, 1998, 1999, 1999, 1999, 1999, 1999, 2000, 2000, 2001, 2001, 2001,
2002, 2002, 2002, 2002, 2002, 2002, 2003, 2003, 2003, 2004, 2004, 2004, 2004, 2004, 2004, 2005, 2005,
2005, 2005, 2005, 2005)

# extensão para os anos mais recentes
# fonte: [2006,2012] atlantic/pacific hurricane season (wikipedia)
.danos2 <- c(.danos, 0.5, 0.09, 0.09, 4.3,
0.54, 0.45, 0.05, 0.24, 15.6, 0.08, 50.0)
.anos2 <- c(.anos, 2006, 2006, 2007, 2008, 2008, 2008, 2010, 2010, 2011, 2012, 2012)

